Imports System.Xml
Imports System.Data.SqlClient
Public Class dProveedor

    Public Function Existe(ByVal Cuit As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@pECUIT", Cuit))

        Return (dConexion.Consultar("STORE_TblProveedorbuscarFiltrado", Parametros).Tables(0).Rows.Count <> 0)

    End Function

    Public Function Insertar(ByVal RazonSocial As String, _
                             ByVal CUIT As String, _
                             ByVal Direccion As String, _
                             ByVal TelCel As String, _
                             ByVal Mail As String, _
                             ByVal Estado As String, _
                             ByVal CondicionCompra As String, _
                             ByVal CodigoLocalidad As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList

        If RazonSocial <> "" Then
            Parametros.Add(New SqlParameter("@pERazonSocial", RazonSocial))
        End If
        If CUIT <> "" Then
            Parametros.Add(New SqlParameter("@pECuit", CUIT))
        End If
        If Direccion <> "" Then
            Parametros.Add(New SqlParameter("@pEDireccion", Direccion))
        End If
        If TelCel <> "" Then
            Parametros.Add(New SqlParameter("@pETelCel", TelCel))
        End If
        If Mail <> "" Then
            Parametros.Add(New SqlParameter("@pEMail", Mail))
        End If
        If Estado <> "" Then
            Parametros.Add(New SqlParameter("@pEEstado", Estado))
        End If
        If CondicionCompra <> "" Then
            Parametros.Add(New SqlParameter("@pECondicionCompra", CondicionCompra))
        End If
        If CodigoLocalidad <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoLocalidad", CodigoLocalidad))
        End If


        Return dConexion.ABM("STORE_TblProveedorAlta", Parametros)
    End Function
    Public Function Eliminar(ByVal CodigoProv As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@pECodigoProv", CodigoProv))
        Return dConexion.ABM("STORE_TblProveedorEliminar", Parametros)
    End Function
    Public Function Modificar(ByVal CodigoProv As String, _
                            ByVal RazonSocial As String, _
                            ByVal Cuit As String, _
                            ByVal Direccion As String, _
                            ByVal TelCel As String, _
                            ByVal Mail As String, _
                            ByVal Estado As String, _
                            ByVal CondicionCompra As String, _
                            ByVal CodigoLocalidad As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If CodigoProv <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoProv", CodigoProv))
        End If
        If CodigoProv <> "" Then
            Parametros.Add(New SqlParameter("@pERazonSocial", RazonSocial))
        End If
        If Cuit <> "" Then
            Parametros.Add(New SqlParameter("@pECuit", Cuit))
        End If
        If Direccion <> "" Then
            Parametros.Add(New SqlParameter("@pEDireccion", Direccion))
        End If
        If TelCel <> "" Then
            Parametros.Add(New SqlParameter("@pETelCel", TelCel))
        End If
        If Mail <> "" Then
            Parametros.Add(New SqlParameter("@pEMail", Mail))
        End If
        If Estado <> "" Then
            Parametros.Add(New SqlParameter("@pEEstado", Estado))
        End If
        If CondicionCompra <> "" Then
            Parametros.Add(New SqlParameter("@pECondicionCompra", CondicionCompra))
        End If
        If CodigoLocalidad <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoLocalidad", CodigoLocalidad))
        End If


        Return dConexion.ABM("STORE_TblProveedorMODIFICAR", Parametros)
    End Function
    Public Function BuscarFiltrado(ByVal CodigoProv As String, _
                                    ByVal RazonSocial As String, _
                                    ByVal Direccion As String, _
                                    ByVal Cuit As String, _
                                    ByVal TelCel As String, _
                                    ByVal Mail As String, _
                                    ByVal Estado As String, _
                                    ByVal CondicionCompra As String, _
                                    ByVal CodigoLocalidad As String) As DataSet

        Dim Parametros As ArrayList = New ArrayList
        If CodigoProv <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoProv", CodigoProv))
        End If
        If CodigoProv <> "" Then
            Parametros.Add(New SqlParameter("@pERazonSocial", RazonSocial))
        End If
        If Cuit <> "" Then
            Parametros.Add(New SqlParameter("@pECuit", Cuit))
        End If
        If RazonSocial <> "" Then
            Parametros.Add(New SqlParameter("@pEDireccion", Direccion))
        End If
        If TelCel <> "" Then
            Parametros.Add(New SqlParameter("@pETelCel", TelCel))
        End If
        If Mail <> "" Then
            Parametros.Add(New SqlParameter("@pEMail", Mail))
        End If
        If Estado <> "" Then
            Parametros.Add(New SqlParameter("@pEEstado", Estado))
        End If
        If CondicionCompra <> "" Then
            Parametros.Add(New SqlParameter("@pECondicionCompra", CondicionCompra))
        End If
        If CodigoLocalidad <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoLocalidad", CodigoLocalidad))
        End If
        Return dConexion.Consultar("STORE_TblProveedorBUSCARFILTRADO", Parametros)
    End Function
    Public Function BuscarRazon(ByVal CodigoProv As String) As String
        Dim Parametros As ArrayList = New ArrayList
        If CodigoProv <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoProv", CodigoProv))
        End If
        Return (dConexion.Consultar("STORE_TblProveedorBUSCARFILTRADO", Parametros)).Tables(0).Rows(0)("RazonSocial").ToString()
    End Function

    Public Function BuscarNombreProveedor(ByVal CodigoProveedor As String) As DataSet
        Dim Parametros As ArrayList = New ArrayList
        If CodigoProveedor <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoProv", CodigoProveedor))
        End If
        'If RazonSocial <> "" Then
        '    Parametros.Add(New SqlParameter("@pERazonSocial", RazonSocial))
        'End If
        Return dConexion.Consultar("STORE_TblproveedorBuscarFiltrado", Parametros)
    End Function
End Class
 